home *** CD-ROM | disk | FTP | other *** search
- /*
- *
- * utility.c
- *
- * Utility routines.
- *
- *
- * Author: Rob Johnston
- * Date: Tuesday, January 14, 1992
- *
- * 12/30/94 JML Code now compiles with Universal interfaces.
- *
- * Copyright © 1992 Apple Computer, Inc.
- *
- */
-
- #include <Types.h>
-
- /*
- * PStrCmp returns true if the two given pascal strings are equal.
- */
-
- short PStrCmp(char *s1, char *s2)
-
- { short size, index;
-
- size = s1[0] + 1;
-
- while (size--) {
- if (*(s1++) != *(s2++))
- return(false);
- }
-
- return(true);
- }
-
-